home *** CD-ROM | disk | FTP | other *** search
/ Amiga Tools 4 / Amiga Tools 4.iso / tools / mail-tools / thor / thor_2.22 / thor.lha / rexx / FSE / forward.fse < prev    next >
Text File  |  1995-12-18  |  259b  |  17 lines
  1. /* Custom-quoting */
  2.  
  3. delete = '7F'x
  4.  
  5. options results
  6.  
  7. ISFIRSTCALL
  8. if (result = 'ON') then do
  9.   SENDER
  10.   if (result ~= "") then do
  11.     name = result
  12.     INSERTLINES 2
  13.     SENDERDATE
  14.     INSERTINPUT name||" wrote "||result||" the following:"||delete
  15.   end
  16. end
  17.